by_angle<-function(x)
{library(DUcj)
library(pracma)
x*pi/180}
by_rad<-function(x)
{library(DUcj)
library(pracma)
x*180/pi}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.